
/*

Dofile: table8_appendix.do 

Date: Dec. 10, 2016 
Aim: Present additional regressions (using effective average taxe rate data)   

Input: base_for_reg.dta 
Output: table8_appendix.xls
Reported in the paper: "Table A.8 – Additional results, Effective Average Tax Rates"

*/  

cd $datapath
use base_for_reg, clear

global name baseline_linveatr // name of the xls file 

global tax_var inter_linveatr linveatr // tax variable and its interaction 
areg luv type $tax_var if tarif!=., absorb(fpt) vce(cluster pays)
outreg2  type $tax_var inter_tarif tarif inter_lgdpc lgdpc inter_ldist ldist  using  "$resultpath/$name.xls" ,  label e(all) nocons bdec(2) symbol($^{***}$, $^{**}$, $^{*}$) adjr2    replace 

areg luv type $tax_var inter_tarif tarif inter_lgdpc lgdpc inter_ldist ldist   , absorb(fpt) vce(cluster pays)
outreg2  type $tax_var inter_tarif tarif inter_lgdpc lgdpc inter_ldist ldist    using  "$resultpath/$name.xls" ,  label e(all) nocons bdec(2) symbol($^{***}$, $^{**}$, $^{*}$) adjr2    append 

global tax_var interdum_hines dum_hines
areg luv type $tax_var inter_tarif tarif inter_lgdpc lgdpc inter_ldist ldist  , absorb(fpt) vce(cluster pays)
outreg2  type $tax_var inter_tarif tarif inter_lgdpc lgdpc inter_ldist ldist    using  "$resultpath/$name.xls" ,  label e(all) nocons bdec(2) symbol($^{***}$, $^{**}$, $^{*}$) adjr2   append 

global tax_var interdum_hines dum_hines inter_linveatr linveatr 
areg luv type $tax_var inter_tarif tarif inter_lgdpc lgdpc inter_ldist ldist    , absorb(fpt) vce(cluster pays)
outreg2  type $tax_var inter_tarif tarif inter_lgdpc lgdpc inter_ldist ldist    using  "$resultpath/$name.xls" ,  label e(all) nocons bdec(2) symbol($^{***}$, $^{**}$, $^{*}$) adjr2   append 

areg luv type $tax_var inter_tarif tarif inter_lgdpc lgdpc inter_ldist ldist  if dum_hines==0, absorb(fpt) vce(cluster pays)
outreg2  type $tax_var inter_tarif tarif inter_lgdpc lgdpc inter_ldist ldist  using  "$resultpath/$name.xls" ,  label e(all) nocons bdec(2) symbol($^{***}$, $^{**}$, $^{*}$) adjr2    append 

global tax_var interdum_hines  inter_linveatr // level variables not included - absorbed by the FE 
reghdfe luv type $tax_var inter_tarif inter_lgdpc inter_ldist  , absorb(fpt c) vce(cluster pays)
outreg2  type $tax_var inter_tarif tarif inter_lgdpc lgdpc inter_ldist ldist   using  "$resultpath/$name.xls" ,  label e(all) nocons bdec(2) symbol($^{***}$, $^{**}$, $^{*}$) adjr2    append 

